home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
SOUND
/
SNDSGOOD.ARJ
/
B_EXMPLE.BAS
next >
Wrap
BASIC Source File
|
1990-03-08
|
187b
|
11 lines
OPEN "I", 1, "SND1.SND"
soundbuffer$ = INPUT$(119, #1)
CLOSE #1
CALL installit
CALLS dosound(soundbuffer$)
check:
CALLS eventsleft(a%)
IF a% <> 0 THEN GOTO check
CALL removeit